module Hpaste.Types.Announcer where

import Control.Concurrent
import Data.Text
import FunBot.Client (Bot)
import FunBot.ExtEvents (Paste)

-- | Announcer configuration.
newtype AnnounceConfig = AnnounceConfig { announceUrl:: String }
  deriving (Show)

-- | An announcer.
data Announcer = Announcer
  { annChan   :: Chan Announcement
  , annBot    :: Bot
  }

-- | An annoucement.
newtype Announcement = Announcement { annPaste :: Paste }
